#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

my $name = undef;

if (defined $name) 
{
    say 'defined';
}
else
{
    say 'undefined'
}
